home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #4 / utv1n4s2.d64 / 64 mailing list (.txt) next >
Commodore BASIC  |  2022-08-28  |  12KB  |  460 lines
  1. 20 printchr$(14):printchr$(8)
  2. 30 print"[147]":poke53280,0:poke53281,0
  3. 35 if a=0 then a=1:load "0:lptr rtn",8,1
  4. 40 x=201:dim f$(7,x),s%(20),l%(7):n=0
  5. 45 for i=1 to 7:read l%(i):next
  6. 46 data 20,20,20,20,2,5,13
  7. 47 gosub 4000
  8. 50 print"[197]nter [198]ile [206]ame: ";:mx=16:gosub 7000:r$=t$
  9. 60 print"     [206]ew [198]ile? <[217]/[206]>"
  10. 70 get a$:if a$<>"y" and a$<>"n" then 70
  11. 75 if a$="y" then 200
  12. 80 poke53280,6:poke53281,15
  13. 100 print"[147][151][204]oading[156]";r$
  14. 105 open 15,8,15,"i0":gosub 3900
  15. 110 open 3,8,3,"0:"+r$+",s,r"
  16. 115 gosub 3900
  17. 120 input# 3,n
  18. 130 for j=1 to 7
  19. 140 for m=1 to n
  20. 150 input# 3,f$(j,m)
  21. 190 next m,j:close 15:close 3
  22. 200 poke53280,4:poke53281,15
  23. 210 print"[147]":printtab(15)"[145][151][205][197][206][213][146]"
  24. 220 print"[151][193]-[218] [193]lphabetical [208]ages"
  25. 230 print"[151][198]1  [198]orward [211]can  [151]_ [210]everse [211]can"
  26. 240 print"[151][198]3  [198]ind an [197]ntry"
  27. 250 print"[151][198]4  [197]nter [201]nformation"
  28. 260 print"[151][198]5  [208]hone [201]ndex  ([151]# [208]rint)"
  29. 270 print"[151]*   [211]elect [206]ew [198]ile"
  30. 280 print"[151]^   [210]ename [198]ile"
  31. 290 print"[151][198]6  [208]rint"
  32. 300 print"[151][198]7  [211]ave"
  33. 310 print"[151][198]2  [195]hange an [197]ntry"
  34. 320 print"[151][196][197][204] [197]rase an [197]ntry"
  35. 325 print"[151][198]8  [213]p[212]ime [205]enu"
  36. 330 print"[151]----------------------------------------"
  37. 340 print"[151][198]ile [211]elected:"
  38. 350 printtab(16)"[145][156]";r$
  39. 360 print"[151][197]ntries:[156]"n"[157] "
  40. 365 nn$="":st$=""
  41. 370 geta$:ifa$=""then370
  42. 380 ifa$="_"thenab=n:goto1020
  43. 390 ifa$="[133]"thenab=1:goto1020
  44. 400 ifa$="[138]"then530
  45. 410 ifa$="[136]"then1210
  46. 420 ifa$="[135]"then1370
  47. 430 ifa$="*"then3600
  48. 440 ifa$="^"then1800
  49. 445 ifa$="#"thengosub6000
  50. 450 ifa$="[137]"then2470
  51. 460 ifa$="[139]"then2990
  52. 470 ifa$="[134]"then2530
  53. 480 ifa$=chr$(20)then2690
  54. 490 ifa$="[147]"then3440
  55. 495 if a$="[140]" then 3700
  56. 500 ix=asc(a$)-64
  57. 510 ifnot(ix<1orix>26)thenx$=chr$(asc(a$)+128):goto1920
  58. 520 goto 370
  59. 530 ifn>=x-1then200
  60. 535 nn=n
  61. 540 n=n+1
  62. 550 print"[151][147][197]nter [201]nformation[146]"
  63. 560 print"[197]ntry #";n
  64. 570 print" [204]ast [206]ame"
  65. 580 print"[198]irst [206]ame"
  66. 590 print"   [193]ddress"
  67. 600 print" [195]ity/[212]own"
  68. 610 print"     [211]tate"
  69. 620 print"  [218]ip [195]ode"
  70. 630 print" [208]hone [206]o."
  71. 640 print"":for j=1 to 7
  72. 650 print tab(11);:mx=l%(j):gosub 7000
  73. 660 if t$="" then t$="--"
  74. 670 f$(j,n)=t$:next j
  75. 790 printtab(8)"[151][193]nother [197]ntry?[146]  [217]/[206]
  76. 800 [153][163]8)"atnwait atnbort  (NULL)wait (NULL)e-valnter"
  77. 810 [161]a$
  78. 820 [139]a$[179][177]"y"[175]a$[179][177]"n"[175]a$[179][177]"a"[175]a$[179][177]"r"[167]810
  79. 830 [139]a$[178]"a"[167]m[178]n:[141]2830:[141]880:[137]200
  80. 840 [139]a$[178]"r"[167]m[178]n:[141]2830
  81. 850 [139]a$[178]"n"[167][141]880:[137]200
  82. 860 [139]n[177][178]x[171]1[167][153][163]12)"ascright$(NULL)val asc(NULL)(NULL)(NULL)":[129]z[178]1[164]2000:[130]:[141]880:[137]200
  83. 870 [137]540
  84. 880 [139]n[179]2[167][142]
  85. 885 [139]nn[178]n[167]nn[178]n[171]1:[142]
  86. 890 [153]"loadpokeatnrranging (NULL)ew valntries atnlphabetically"
  87. 895 s%(1)[178]1:s%(2)[178]n:p[178]2
  88. 900 l[178]s%(p):p[178]p[171]1:f[178]s%(p):p[178]p[171]1:m[178]f
  89. 905 j[178]l:d$[178]f$(1,(f[170]l)[173]2)
  90. 910 [139] f$(1,m)[179]d$[167]m[178]m[170]1:[137]910
  91. 915 [139] f$(1,j)[177]d$[167]j[178]j[171]1:[137]915
  92. 920 [139]m[179][178]j[167][151]53280,4:[141]970
  93. 925 [151]53280,6:[139]m[179][178]j[167]910
  94. 930 [139]f[179]j[167]p[178]p[170]1:s%(p)[178]f:p[178]p[170]1:s%(p)[178]j
  95. 940 f[178]m:[139]f[179]l[167]905
  96. 950 [139]p[179][177]0[167]900
  97. 960 [142]
  98. 970 aa$[178]f$(1,m):bb$[178]f$(2,m):cc$[178]f$(3,m):dd$[178]f$(4,m)
  99. 975 ee$[178]f$(5,m):ff$[178]f$(6,m):gg$[178]f$(7,m)
  100. 980 [129] k[178]1 [164] 7:f$(k,m)[178]f$(k,j):[130]
  101. 1000 f$(1,j)[178]aa$:f$(2,j)[178]bb$:f$(3,j)[178]cc$:f$(4,j)[178]dd$
  102. 1005 f$(5,j)[178]ee$:f$(6,j)[178]ff$:f$(7,j)[178]gg$
  103. 1010 m[178]m[170]1:j[178]j[171]1:[142]
  104. 1020 [139]n[178]0[167]200
  105. 1030 [129]m[178]ab[164]n
  106. 1040 [141]2880
  107. 1050 [151]53280,6:[153]"pokeasc1wait ascorward (NULL)can  _wait (NULL)everse (NULL)can"
  108. 1060 [139]m[177]n[167]200
  109. 1070 [153]"asc5wait right$ndex"
  110. 1080 [153]"asc7wait (NULL)eturn to (NULL)ain (NULL)enu"
  111. 1090 [153]"asc2wait (NULL)ake a lenhange"
  112. 1100 [153]"str$val(NULL)wait valrase valntry      asc8wait (NULL)p(NULL)ime
  113. 1110 print"[198]6[146] [208]rint [197]nvelope   +[146] [208]rint [204]abels"
  114. 1120 geta$:ifa$=""then1120
  115. 1130 ifa$="_"thenm=m-2:ifm<0then200
  116. 1140 ifa$="[135]"then1370
  117. 1150 ifa$="[136]"then200
  118. 1155 ifa$="[138]"then530
  119. 1160 ifa$="[137]"thengosub2280:m=m-1
  120. 1170 ifa$=chr$(20)thengosub2750
  121. 1175 ifa$="[140]"then 3700
  122. 1180 ifa$="[139]"thengosub3190
  123. 1190 ifa$="+"thengosub5000:gosub3280:m=m-1
  124. 1200 next:goto200
  125. 1210 ifn=0then200
  126. 1220 print"[147][151][217]ou selected [211]ave, are you sure?"
  127. 1230 printtab(16)"[217]/[206]
  128. 1240 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]1240
  129. 1260 [139]a$[178]"n"[167]200
  130. 1270 [153]"loadpoke(NULL)avingclr";r$
  131. 1275 [159] 15,8,15,"i0":[141] 3900
  132. 1280 [159] 4,8,4,"@0:"[170]r$[170]",s,w"
  133. 1285 [141] 3900
  134. 1290 [152] 4,n
  135. 1300 [129] j[178]1 [164] 7
  136. 1310 [129] m[178]1 [164] n
  137. 1320 [152] 4,f$(j,m)
  138. 1360 [130] m,j:[160] 4:[160] 15:[137]200
  139. 1370 [139] n[178]0[167]200
  140. 1380 [153]"load":[151]53280,9:[151]53281,15:[141]1740
  141. 1390 xx[178]1:yy[178]15
  142. 1400 [139]yy[177]n[167]yy[178]n
  143. 1410 [129]m[178]xx[164]yy:[139]m[177]x[171]1[167]200
  144. 1420 [153]"poke";m
  145. 1430 [153]"on"[200](f$(1,m),14)
  146. 1440 [153][163]20)"pokeon";[200](f$(7,m),19):[130]
  147. 1450 [161]a$:[139]a$[178]""[167]1450
  148. 1460 [139]a$[178]"read"[167]1540
  149. 1470 [139]a$[178]"let"[167]200
  150. 1475 [139]a$[178]"#"[167][141]6000
  151. 1480 [139]a$[178]"dim"[167]1590
  152. 1490 [139]a$[178]"goto"[167]1630
  153. 1500 [139]a$[178]"restore"[167]1670
  154. 1510 [139]a$[178]"run"[167][151]53280,6:[137]530
  155. 1520 ix[178][198](a$)[171]64
  156. 1530 [139] [168](ix[179]1[176]ix[177]26)[167]x$[178][199]([198](a$)[170]128):[137]1920
  157. 1540 xx[178]xx[170]15:yy[178]yy[170]15
  158. 1550 [139]xx[177][178]x[171]1[167]200
  159. 1560 [139]yy[171]15[177][178]n[167]200
  160. 1570 [153]"load":[141]1740
  161. 1580 [137]1400
  162. 1590 [141]1720
  163. 1600 [153]"poke(NULL)atch (NULL)hich right$ndex (NULL)umber:wait ";:mx[178]3:[141] 7000:k[178][197](t$)
  164. 1610 [139] k[179]1[176]k[177]n[167]200
  165. 1620 [153]"load":[129]m[178]k[164]n:[151]53280,6:[137]1040
  166. 1630 [141]1720
  167. 1640 [153]"pokevalnter right$ndex (NULL)umber for lenhange:wait ";:mx[178]3:[141] 7000:k[178][197](t$)
  168. 1650 [139]k[179]1[176]k[177]n[167]200
  169. 1660 [153]"load":[129]m[178]k[164]n:[141]2280:[137]200
  170. 1670 [141]1720
  171. 1680 [133]"pokevalnter right$ndex (NULL)umber to valrase:wait ";:mx[178]3:[141] 7000:k[178][197](t$)
  172. 1690 [139] k[179]1[176]k[177]n[167]200
  173. 1700 [129] m[178]k [164] n
  174. 1710 [141]2270:[137]200
  175. 1720 [153]""
  176. 1730 [142]
  177. 1740 [153]"asc5-lenontinue          asc4-str$ata valntry"
  178. 1750 [153]"asc7-(NULL)ain (NULL)enu         asc2-lenhange valntry"
  179. 1760 [153]"asc3-(NULL)ead valntry        asc8-valrase valntry"
  180. 1770 [153]"poke---------------------------------------"
  181. 1780 [153]"     (NULL)ame           (NULL)hone"
  182. 1790 [142]
  183. 1800 [139]n[178]0[167]200
  184. 1810 [153]"loadpokeatnre you sure you want to (NULL)ename"
  185. 1820 [153][163]13)"this ascile?"
  186. 1830 [153][163]17)"(NULL)/(NULL)
  187. 1840 geta$:ifa$<>"y"anda$<>"n"then1840
  188. 1850 ifa$="n"then200
  189. 1860 print"[151][197]nter [206]ew [198]ile [206]ame: ";:mx=16:gosub 7000:v$=t$
  190. 1870 print"[147][151][196]o you want this executed on disk? [217]/[206]"
  191. 1880 geta$:ifa$<>"y"anda$<>"n"then1880
  192. 1890 ifa$="n"thenr$=v$:goto200
  193. 1900 open15,8,15:print#15,"r0:"+v$"="+r$
  194. 1910 gosub 3900:r$=v$:close15:goto200
  195. 1920 ifn=0then 3500
  196. 1930 print"[147][151]":poke53280,0:poke53281,0
  197. 1940 if left$(f$(1,int(n/1.3)),1)<x$thenm=int(n/1.3):b=0:goto1970
  198. 1950 if left$(f$(1,int(n/2.3)),1)<x$thenm=int(n/2.3):b=0:goto1970
  199. 1960 m=1:b=0
  200. 1970 if m=nandleft$(f$(1,n),1)<>x$then200
  201. 1975 ifleft$(f$(1,m),1)>x$then3500
  202. 1980 ifleft$(f$(1,m),1)=x$then2010
  203. 1990 if b<>0 and left$(f$(1,m+1),1)<>x$ then gosub2250:goto2200
  204. 2000 goto2110
  205. 2010 b=b+1
  206. 2020 print"[158]"m"[157]) "
  207. 2030 pri